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Atari Corputer Enthusiasts (N.S.W.) is an 
independent, non-profit computer users’ group loosely 
affiliated with Atari Computer Enthusiasts in the 
U.S.A, We have no connections with ATARI, Inc. or 
their Australian distributors, Futuretronics 
Australia Pty. Ltd. Our aims include prorotion of 
the various ATARI] Home Computer Systens,. instructing 
both beginners and advanced users in prograsaing 
techniques, exchanging public domain software, hints, 
tips and ideas asongst gembers and generally enjoying 
ourselves, The Club cannot condone software piracy, 

COMMITTEE MEMBERS Howe Phone § 
Tony Reeve (President) (02)452 2974 
Barry Willians (Vice President) {02)452 2229 
Alex Kwok (Secretary/Treasurer) (02)641 3377 
Peter Bantord (Meetings Organizer) (043)42 2658 
Peter Dickeson (Cassette S/W Xchge) (02) 80 2505 
Brian Simmons (Disk 8/# Xchge) (045)76 533! 
Chris Fitzgerald (Editor) {02)637 5447 - 
Roberto Romano (Bulletin Board) (02)327 4898 
Jeff Haddock (Librarian) {02)548 2990 
Address al] mail to the relevent committee position:- 

C/- Atari Computer Enthusiasts (N.S.4,) 

§.P.0, Box 4514, 

Sydney, 

N.S.W, 2001, 

MEMBERSHIP FEES 

$30 for the first year and $15 thereatter (or 
$26 and $10 respectively for students under 18 and 
still at school). Overseas air-mail subscriptions 
are $iQ(Aust) extra per year. Please write to the 
Secretary for further details, 

SOFTWARE EXCHANGE 

Currently, there are 5 titles available to 

meabers, on either disk or tape. These are: 
#GAMES #1 9 #UTILITIES #1 © #fig-FORTH 
FINSIDE INFO Vol. { © #XL TRANSLATOR (disk only) 
FINSIDE INFO Vol. 2 with CARTOONS 

DISKS: $10 each. CASSETTES: $8 each. 

Non-meabers add 10%. Include an extra $1.50 to 
Cover surface postage within Australia, Contact 
appropriate software exchange for further details. 

Overseas members should write for costs first, 

For every program you write and have accepted by 
the Software Exchange, you will be entitled to one 
Software Exchange disk or tape at hal? price. 

We are keen to exchange software with other 
user's groups. 

BLANK MEDIA 
DISKS: $32 CASSETTES: $9 

Prices are for boxes of 10 and say change 
without notice, An extra $1.50 should be included to 
cover postage within Australia. Contact appropriate 
Software exchange for details. 

DISK BOXES 

These hold 90 disks and have a lockable lid. 
Cost to members is $35, non-members $39.50. Include 
an extra $3.35 for postage within N.S.W, and $5.50 
elsewhere within Australia. Contact club Secretary 
for details, 


_ Atari Computer Enthusiasts (N.8.W.) 
_INFORMATION 


June 1984 
SPECIAL INTEREST GROUPS (5.1.6.8) 

Home phone numbers of contacts are given below. 
Phone thea or write to the Editor with your 
suggestions, high scores, reviews, hints or tips, 

ADVENTURES: Contact Garry Francis  (02)789 1397 

ARCADE GAMES: Contact Ken Shiu {02)534 2120 

CONPUTE!s Contact Barry Williaas = (02)452 2229 

FORTH: Contact John Mattes 102) 94 5443 

HARDWARE: Contact Jarie Athas {02} 349 7365 
A.C.E. BULLETIN BOARD -Phone(02)327 4898 

Systeas Operator (SYSOP) is Roberto Romano, 
Syster available between 8,30 P.M. and 9.30 P.M, 
Tuesday to Saturday only. Access requires a personal 
password which is available fror SYSOP for $3 per 
year. We recommend you use “AMPLUSS.UDL" terainal 
software, PUBLIC DOMAIN SOFTWARE ONLY! 

INSIDE INFO 

This is our bi-wonthly users’ group sagazine. 
Articles, etc. should reach the editor at least one 
month ahead of the release date. Authors of articles 
printed in INSIDE INFO are entitled to one disk or 
cassette from the Software Exchange at half price, 
BACK ISSUES: $2.50 each for issues in stock. $4 each 
if out of stock. Mailing costs are extra. 

EXCHANGE SUBSCRIPTIONS: We are keen to exchange 
sagazines with other Atari Users’ Groups. Please 
write to the Secretary for details. 

COPYRIGHT: Unless otherwise stated, articles in 
INSIDE INFO are not copyrighted. However, if any 
article is reprinted, acknowledgerent of our source 
should be made. Also, please send TWO copies of the 
issue of your magazine to A.C.E. (N,S.W.). 
ADVERTISING: Contact the Vice President for costs and 
conditions. Members’ personal adds are free. 
REFERENCE LIBRARY 

Some books are brought to meetings, others are 
available only by arrangerent with the librarian, 
Loans are made only to people researching articles or 
talks for the club. 

DISCOUNTS AVAILABLE TO MEMBERS 
Present your membership card for discounts! 
COMPUTERWAVE [52% -cash only] 325 George St, Sydney, 
{near Wynyard) Ph. (02) 29 $631, 
THE COMPUTER SPOT (5% credit, 10% cash} Shop C4, 
M.L.C. Centre, Martin Place. Ph. {02)235 2971, 
COVER CARE {25% off computer dust covers} P.O. Box 
719, Chatswood, N.S.W. 2067. Ph. (02)498 5631, 
MEETING DETAILS 

Meetings are held at 6.00 P.M. on the first 
Monday of the month {or the second Monday if it 
clashes with a public holiday) in the Amenities Roos, 
7th Floor, OTC House, 32-34 Martin Place, Sydney, 
NOTE: You can't enter the building after 6.30 P.H. 

and you MUST sign in! 
MEETING DATES FOR 1984 
2nd duly #13th August 
#8th October Sth Noverber 
MEETING DATES FOR 1985 
#4th February 4th March #ist April 
# indicates release dates for INSIDE INFO. 


3rd Septeaber 
*3rd December. 


SOFTWARE COMPETITION RESULTS 


by Peter Dickeson. 


The results of the Educational Software 
Competition were announced by Tony Reeve at the May 
seeting, There were only four entries, but the 
general standard of the entries was very high, 

The members of the consittee (software exchange) 


vsed the following criteria to examine the 
subaissions:- 

Educational value 40% 

Documentation 204 

Ease of use 20% 

Presentation 10% 

Originality 10% 


Janie Athas was unfortunate to seet such strong 
opposition. His program, titled "Basic Electricity", 
was cassette based and featured his voice to help 
explain the examples shown on the screen. He also 
asked questions which had multiple choice answers to 
further reinforce the lesson, The program was 
presented on an autoboot cassette and was very well 
protected, 

The THIRD prize of $25 went to Peter Tucker of 
Lismore. He wrote a program titled "Spelling 8° 
which was also cassette based. Like Jamie's prograa, 
“Spelling BY made use of the left track of the 
cassette tape, 

Your Atari only uses the right channel of the 
tape, leaving the left channel free for voice, ausic, 
noise or all three, Peter's voice track described 
the program as it loaded as well as "saying" the word 
which was to be spelt. Each word was accospanied 
with an explanation or description of what the word 
meant -this would be played through the television 
speaker. 

"Spelling BY allows you to use your own words, 
giving it great flexibility and aking it an 
excellent programa for small children who are just 


FOR 


Atari 400 Computer with 32k RAM, Data cassette, 
BASIC, Assembler Editor, Pacran and Star Raiders 
cartridges, plus aany more programs on tape. 

All as new for only $400, 
Contact Peter Gray (Kotara, Newcastle). 
Phone (049) 64-1896(BH) or (049) 57-3354(AK), 
HK HE 
ADVENTURES: From CHANNEL 8 SOFTWARE (England). 
Rivals Scott Adams Adventures. {4K Atari Cassettes. 

-Escape from Pulsar 7 

-Circus 

-Ten Little Indians 

-The Wizard of Akyrz 

~The Tiae Machine 
$12 each or the lot for $50, 
Copies in Australia! 

CASSETTE BASED GAMES: {6K cassettes, includes 


These are the only 


SALE 


P| 


(Software Exchange) 


beginning to spell, 


TEDITOR'S NOTE: An article on using your progras 
recorders left track has been prepared by Peter and 
can be found elsewhere in this issue of Inside Info.) 


"Graphs4", by Bao Quy Nguyen Phuoc, won the 
second prize of $50. It is one of the most flexible 
and easy to use ‘graph plotter’ programs that I have 
ever seen, , 

There are obvious applications for this progras 
in high school Mathematics and Physics. However, any 
subject that sakes use of graphs, e.9., Econoaics, 
Geography, etc., would benefit, Up to three 
functions of y aay be plotted with the user defining 
the origin and unit length of each axis. 

Bao made use of the Ataris "forced read mode” 50 
that your formula could be input in the same way a5 
it would be written into any BASIC progras, 


Ken Shiu won the first prize of #100 for his 
exceptional program "OB Lightfingers". The progras 
is a very effective touch typing course in the fore 
bf a game, 

Provision has been made for anyone from beginner 
to expert, There are levels of play within each 
section of the prograe with the speed being 
autonatically incremented upon successfully finishing 
asection. This all adds up to sake for a very 
sophisticated "gaae’, 

Graphics and sound are excellent while the 
supporting documentation is the ost coaplete that | 
have ever seen, 


Congratulations to all who submitted their 
programs, I‘a sure that the well earned prize money 
will! come in very handy, -~ 





instructions and packaging, 
“Galactic Chase... .. $20 
~Jawbreaker . 1 ee es $20 
“Shootout at OK Galaxy . . $10 
Contact Jamie Athas (Maroubra), Phone (02) 349-7365, 
KEKE 
CARTRIDGE BASED PROGRAMS: $35 each, 
-Pacman 
“Missile Command 
Instructions included, 
Contact Chris Fitzgerald (Clyde). 
Phone (02) 637-5447, 
HEEHH 
Sendata Acoustic Modea: Set up for use with your 
Atari 850 interface module. $150 or near offer. 
Contact Jeff Maddock (Marrickville). 
Phone (02) 568-2990, 
HREKRK 


ADD AUDIO TO YOUR PROGRAMS 


by Peter Tucker, 


(Lismore, N.S.W.) 


(Editor's note:- Peter won the Third Prize of $25 in the clubs’ Educational Software Competition with a progran 
he wrote called "SPELLING B". This program made use of the sound track capabilities of the Atari progras 
recorder, This article describes how he recorded that soundtrack and should be useful for others wanting to do 


the sane, 


CAUTION: While the eethod outlined in this article does work, we cannot accept responsibility if you do any 
dakage to you program recorder. Taapering with your recorder will invalidate any 90 day warranty on the unit!) 


As wost Atari owners are aware, the 400/1010 
program recorders have the ability to replay audio as 
wel] as digital inforaation, This is achieved by the 
recorders’ having a two channel (stereo) playback 
head. 

The digital information is stored as audio tones 
(S327Hzelogic 1 and S9ISHz=logic 0) on the right 
(inner) track while the audio (sound) is recorded on 
the left (outer) track, 


AUDIO TRACK LEFT TRACK 
SIDE A- 

DIGITAL TRACK RIGHT TRACK 

AUDIO TRACK RIGHT TRACK 
SIDE 8B 


DIGITAL TRACK LEFT TRACK 

Unfortunately, Atari aade no provision for 
recording audio inforsation, however, this say be 
successfully accomplished using a conventional 
recorder. 

There are two aain applications for the audio 
tracki- 

1. Giving audio information while the prograa is 
Joading, e.g. directions on how to use the prograa, 

2, Having the program access the recorder for 
varying forms of information. e.g. Atari's language 
prograas, 

METHOD i 

Setting up cassettes for the first application, 
whilst being the easiest to record (since there are 
no serious timing limitations), requires special 
hardware. 

Conventional recorders will erase the digital 
information as the audio track is being recorded, If 
you have the ability to record sound on sound (rare 
in cassette decks) then itis a siaple aatter to 
record audio on the left track. For those of us who 
do not have this facility there are still ways left 
open tous . 

It would be possible, though J have not 
personally tried it, te transfer the digital track to 
3 reel to reel tape with dubbing facility, lay down 
the audio track and then transfer it back to 
cassette. This method has obvious liaitations:- 

a) finding a suitable reel to reel machine. 
b) the digital information would suffer a 
reduction in quality due to the double audio copy. 

I have experimented with disabling the erase 
head in a conventional stereo recorder and have had 
aoderate success. Unfortunately, while the digital 
track is not erased, the record head affects the 


recording even though no aicrophone is connected to 
the right channels input jack. The result of this is 
that the voluse of the digital recording is severely 
reduced, Tapes made in this manner will toad but, 
with my experience of the long term volatility of 
cassette recordings, I would not recommend this 
sethod, 
MODIFYING YOUR RECORDER 

By far the aost successful method is to lay down 
the digital track as the last step, This is achieved 
by ‘attacking’ the programs recorder itself. The 
erase head can be easily disabled using the following 
eethod, (My recorder is an older 410 -no pause 
control with the tape counter situated on the right, 
near the front of the cassette bay. Hence ay 
directions may vary slightly for the later model 410s 
and the 1010), 
1. — Remove the two screws froa the back of the 
recorder, 
Ze Gently lift the back off the recorder 
starting from the control button end of the aachine. 
The other end (with the serial cable outlet) slips 
under two seal] lugs, 
3. Loosen the philips head screws which retain 
the cassette bay Jid pivots, remove the spring and 
release the lid from the body of the recorder. 
4. Undo the screws which retain the component 
board and motor mechanism to the plastic casing (do 
not forget the screw near the counter aechanisa). 


Se Gently remove the internal unit from the 
plastic case. a 
6. Turn the internal unit over. It is now a 


siaple matter to remove the small philins head screws 
which retain the erase head, 
7a Retract the head, complete with wires, and 
tape it safely out of the way. Take care that it 
Will not get in the way of the cassette head 
aechanisa or foul when reassembling the unit. 
8. Reasseable the recorder. \ 

The above instructions say sound complicated but 
it is, in reality, very simple. 

MAKING THE TAPE 

i. Load your program into the computer or keep 
a back-up copy of the program since it will be erased 
fros the tape. 





Ze Place the cassette in a conventional stereo 
recorder and lay down the required audio, track. 
3. Place the cassette back in the progran 


recorder and save the program back to tape. 
You should now have a perfect copy of your progras 
complete with audio track, 

Apparently, the 410 program recorders recording 


circuitry is single track, since the audio track cy 


suffers no joss of vcluge or gquelity while saving the 
progree (digital) treck, It would however, be no 
probles if it did drop in quality, since you could 
always cospensate by turning up the TVs voluae 
control, 

Don't forget to replace the recorders erase head 
when finished because even though prograas will 
successfully load from your recorder without it, 
future saves to pre-recorded tapes will be garbled. 

A leader progras should be used to turn off the 
usual program LOADIng sounds, otherwise these sounds 
will be heard along with your specially recorded 
audio track. This can be achieved by POKEing 
location SOUNDR (Decieal 65) with a zero. i.e.i- 

POKE 45,0 
This leader progras could also be used to chain the 
main progras, €.g.t- 


10 POKE 65,0:REM TURN OFF SOUND 

20 REN PERHAPS SOME SORT OF SCREEN DISPLAY WITH 
30 REM INSTRUCTIONS COULD 60 HERE 

40 CLOAD:REN CHAIN MAIN PROGRAN 


METHOD 2 

Where you only want to use the prograa recorder 
to play back audio information during the actual 
RUNning of the program, you don’t need to rerove the 
erase head since there will be no information 
recorded on the digital (Right) track. These 
programs require the program recorder to be turned on 
and off so that the sound track can be heard before 
the program continues RUNning, This requires a short 
progras routine which will control the prograr 
recorders motor as well as the period of tise that 
the aotor will run for, Motor control can be 
achieved by POKEing PACTL (Decimal 54018) with 52 to 
turn it on and 60 to turn it off. i.e.s- 


10 POKE 5401B,52:REM TURN RECORDER ON 
20 REM TIME DELAY WHILE RECORDER PLAYS 
30 POKE 54018,60:REM TURN RECORDER OFF 


The timing delay can be controlled with a siaple 
FOR/NEXT loop, however the actual time for any given 
loop will depend ona number of factors, FOR/NEXT 
loops near the end of a program (especially a long 
program) will execute aore slowly than the same loop 
placed at the start of a program. This is because 
the ‘NEXT’ command in BASIC always juaps back to the 
first line number of the program when it is searching 
for its matching ‘FOR' statement. The current 
GRAPHICS mode will also affect execution tine, 
Providing that line nuabers within a program de not 
change and that the GRAPHICS aode doesn't change, the 
period of the timing loop will not change. 

A.much cleaner method is to use one of the 
in-built system tisers, of which there are a nuaber 
built into the Atari. e.g, Deciaal 540, 542, 18, 19, 
& 20. Timers at aenmory location 540 & 542 count 
backwards froe 255 to 0, whilst memory locations 18, 
19 & 20 (which are most suited for our purpose) count 
and increment from 0 to 255. 

Location 20 counts from 0 te 255, being 
incremented by 1 every {/50th of a second (for a 50Hz 


power Supply}, Hence it takes §.12  seco-ds for 
location 26 to reach 255. Location 20 then zeroes 
again and location 19 ig incremented by 1, When 
location 19 is incremented to 255 (every 1310.72 
seconds, or 21 minutes 50.7 seconds), it zeroes and 
increments location 18 by 1. 

In order to get accurate timing using these aesory 
locations, they should all be zeroed (POKEd with 0) 
just prior to use. Here's a sample progras:- 


10 POKE 20,0:POKE 19,0:POKE 54018,52:REM zero 

tiners, turn cassette on 

20 IF PEEK{19)<2 THEN 20 

30 POKE 54018,60:REM turn cassette off 

In line 20 the prograg waits for location 19 to be 
increrented to two or more, hence the prograa will 
wait approxiaately 10,24 seconds (i.e. 2#5.12) whilst 
incrementing 0 to { then 1 to 2, 


RECORDING THE SOUND TRACK 
Once the time interval has been decided upon and 

inserted into your BASIC prograa, you can sove on to 

recording the sound track, After = auch 

experimentation I have found the following method to 

be both simple and effectiver- 

1 Save your leader and BASIC programs to tape 

-do not rewind the tape! 

2. Obtain a stopwatch or watch with seconds 

clearly marked on it, 

3. Place the tape which is to carry the sound 

track into the conventional stereo recorder, 

4. Tero the tape counter at the point where the 

BASIC program ended, 

5. With the aicrophone connected to the RIGHT 

track (channel) only, press PAUSE and set aachine for 

recording. 

6. Release the PAUSE key and simultaneously 

start your watch. 

7. Record a short, sharp sound every n seconds 

(n being your predetermined time interval) -I have 

found that tapping the side of a glass with a spoon 

is very suitable. 


8. Record as many intervals onto the tape as 
you have pieces of inforaation to be played, 
9. When your timing marks are all recorded, 


rewind the tape back to the zero position. 
10 Connect the aicrophone into the LEFT track 
(channel) and press PAUSE, 
11 Set esachine for recording, 
12 Release the PAUSE key and record your sound 
track. Press STOP before you exceed your 
predeterained time (n), 
NOTE: It is wise to, if possible, record your audio 
as close as possible to the centre of the tised 
interval ~this will sake it Jess critical if you 
can't position your tape accurately to the start of 
your "timing mark". 
13 Press PLAY and listen for the short, sharp 
sound that you recorded in 7 (above) then press PAUSE 
again, 
14 Repeat steps 11 to 13 for as many intervals 
as you require. 

Your tape is now corapleted. Rewind it and place 


it into your prograa recorder. 37 sx x 


WIRING AN EXTRA KEYBOARD 


by Peter Barford, 


If you own a 400 and you're fed up with its 
sembrane keyboard or if you just want a seperate 
keyboard for your 800 and you've got around $50.00 to 
spare, then this may be for you -a seperate full 
stroke keyboard. To build the keyboard you will need 
the followings- 

1) Keyboard -I used a NicroBee keyboard fros 

Jaycar Electronics at $29.95, 

2) Extra Key(s} -$1.50 from Jaycar. 

3) Ribbon Cable -(at least 22-conductor) about 

$1.00 per eetre, 

4) 25 pin wale & female ‘D’ Type connectors with 

covers at approx $4,50 each, 

All of the above components are readily 
available- check the electronics magazines for the 
best prices. 

EXTRA KEYS 

Some of the keycaps on the MicroBee keyboard are 
different to the ATARI keys, so I used aodel paint to 
paint over thea. I then used a fine pen to draw the 
correct symbols. If you press hard enough the pen 
cuts into the paint and the syabols will last longer. 

The MicroBee keyboard only comes with 60 keys 
whereas you need 6! for the Atari (including the 
Console keys), It’s also a good idea to use 2 keys 
in series for SYSTEM RESET to avoid accidental use. 
For the other console keys I used 3 large keys (i.e. 
"RETURN' size) -hence the need to buy extra keys. 
The keyboard already has the extra holes for up to 6 
additional keys so there's no problem there. 

THE PROCEDURE 

The wiring diagram in Figure ! originally came 
from an article in Creative Computing (Dec. 1982) by 
Robert Noskowicz, It shows the standard Atari 
keyboard from the back -the side you'll do the 
soldering fros. 

1 First of all, wire-up the back of the keyboard as 
shown. 

HINTS 

§) Tin all wires and key terminals before actually 
soldering. 

2) Follow the diagrae closely, connecting wires in 
proper sequence i.e. all those connected to 3, then 
2, etc, 

2 Next, connect the ribbon cable to the keyboard 
ensuring that you keep the correct sequence, 

3 If you are using the ‘D’ connectors, wire the 
socket (female) to the ribbon cable which is nox 
connected to your external keyboard -take care that 
you wire it correctly, i.e, The ‘D’ connectors pins 
are nuabered (and marked) from {to 25, ensure that 
the wires (nuabers on the arrows in Figure 1) are 
connected to that same pin nuaber. 

If you want to permanently wire the keyboard to 
the computer you won't need the "D’ connectors -but 
this aeans your conputer won't be as portable, nor 
will you be able to add a seperate numeric keypad 
later. 


(Usina, N.S.) 


4 To aount the ‘D’ plug (male) in the coaputer you 
will need to drill a hole in the side. There's 
plenty of room and if you take your tise and 
carefully file the hole to size a very neat fit can 
be achieved, Don't fix the plug in place yet though! 
(Editor’s Note:- I put ay connection in the back, but 
it is avery neat fit and extreme care should be 
taken] 

S The connection to the computer is comparatively 
easy, 

On the 400, remove the top half of the computer 
housing and solder the ribbon cable to where the 
existing cable for the keyboard connects. NOTE: No.! 
corresponds to No.! on the Atari keyboard cable (yep, 
if you look hard it is nusbered on the PC Board), 

For 800 owners the Console keys are not on the 
keyboard PC but there is a small connector (No. 3202) 
on the aain board to which you can connect thea ~just 
follow the PC tracks to check which switch (key) it 
operates from, No.22 is an earth and it can be 
connected to any common earth on the board, 

{Editor's Note: I've only worked on my 800, but J 
would suggest you follow the existing wiring colour 
code for the main keyboard which I've set out in 
diagran 3, 

NOTE: Point 48 (Grey) is not connected on the 800.) 
& Once again, if you are using the 'D’ connectors, 
solder the plug (male) to the ribbon cable taking 
care to wire it correctly, i.e. ensuring that the 
wires (nuabered 1 to 17 from right to left on the 
800) are connected to that sase pin nuaber. 

7 Now test the original Atari keyboard, if it works, 
plug in your new keyboard and try it. If it doesn't 
then check al] the connections for bad joints or 
short circuits. Also, check to see you have No.! to 
No.! etc. 

8 Either bolt or epoxy the ‘D' plug (male) into the 
body of the computer and reasseable it. 


The new keyboard is in parallel with the Atari 
keyboard, 50 both keyboards can be used 
simultaneously. (Jt's great for two player ganes 
that use the keyboard.) 

To mount the keyboard I used plywood and spare 
bits of timber to make acase, I] then covered it 
with self adhesive wallpaper (refer fig.2). 

That's it, it takes a while with a lot of 
soldering but it’s a lot cheaper than the comrercial 
alternatives. 

If you have problems I may be able help - just ask. 

Incidently, you use the sase method to fit a 
numeric keypad, but that’s another article perhaps. 
[Editor's Note: I've connected up ay own numeric 
keypad and I hope to put an article on wiring one up 
in the next Inside Info. In the meantiae, if you 
want to buy one, they're available from Dick Saiths 
Electronics for $19.95. They come on a PC Board and 
hence require a little sodification.3 
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Figure i 
Keyboard Wiring Diagran 
{viewed from back, front) 
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PC Board connection - underside of 800 


(viewed from front) 
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COMPUTE! PROGRAM EXCHANGE 


From Barry Williams. Phone (02)452-2229, (Frenchs Forest, N.S.W.) 
SESE ERE EEE EERE EERE EEE EEE EE EEEE REE ERR EAE EEE EREEESEEEEREEE 
The exchange is now operating. Programs will be supplied (swap one for one) with either 4 or B on a disk. 
Please send your exchange disk with four or eight ‘COMPUTE’ prograns on it and list which ones you would like in 
return, You must also send verification that you have the corresponding copy of ‘COMPUTE’. This can be done by 
sending a business reply tag from the pages of the relevent issue. 
Refer to page 18 for the current library list. 


SREEERESRESEREEE ERLE RELEERESASEESESEREPE EE REREEEEREEE HELE EREE HESS EEE 
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LIGHTPEN PROJECT 


(Seaforth, N.S W.) 


by John Mattes, 


This article describes how to construct a high 

accuracy light pen at a cost of about $20. 
PARTS LIST 

You will need the following:- 
1 A "Stabilo Boss" highlighting pen (#2.30) 
2 A two microsecond phototransistor - a Motorola 
HRD300 fron VSI Electronics, St Leonards is suitable 
{$3.18}, This itea is CRITICAL, 
3 An LN3i1 comparitor ($1.40) 
{dual-in-line) socket ($0.90), 
4 One 100 ohm half watt resistor ($0.05), 
5 A nine pin ‘D’ type female connector ($2.95) 
and cover {#3,50), Note that some covers won't fit 
under the lip of your corputer, so be careful! 
6 A length of flexible cable with at least 4 
conductors ($2.78). 
7 A siniature PCB (printed 
mounting momentary action switch. 
switch turns off when released ($0.45). 
B A small piece of “vero-board"*, which is 
insulated board with a matrix of holes drilled at 0.1 


and 8 pin DIL 


circuit board) 
This type of 


inch {yes INCH) centres, overlaid with parallel 
copper tracks ($2.85), 
CONSTRUCTION 


After you have obtained your components:- 
1 Reaove the innards of the highlighting pen by 
inserting a small screwdriver between the black 
"business end" of the pen and the case, and lever the 
case up, a bit at a tise, until] the glue breaks, 
2 Cut the vero-board to fit snugly inside the pen 
-you can scale off diagram 1. Note that the tracks 
on the vero-board run parallel with the axis of the 
pen. 3 Using a Small drill (about Zea) or a hobby 
knife, cut the tracks where an 'X’ appears on diagras 
1, There are seven points at which the tracks MUST 
be cut. 
ADrill or file out the ridges on the inside of the 
hole in the tip of the pen so that it will clear the 
flange on the base of the MRDSO0O. A dam drill is 
Buitable. SS File off or bend back the locating tag 
on the base of the MRD300 so that it will fit into 
the tip of the pen. 
& Drill a hole through the closed end of the pen to 
suit your cable. 

That's the hard part over! Now:- 
7 Insert and solder the components where shown on 
the vero-board. Note that the view shown in Diagras 
{is the track side of the board. All of the 
components are inserted from the other side, 
8 Pin 1 of the 8 pin DIL socket is usually sarked 
with a small coloured arrow. 


9 Use a battery and laep or a aultiaeter to check 
that operation of the switch has the effect of 
connecting together the tracks on which the switch is 
mounted, 

10 Make sure that the phototransistor is connected 
according to the inset in diagraa 2, Note that the 
view of the phototransistor is “looking down the 
leads", 

11 Insert the cable through the case and solder the 
four wires to the tracks where shown, 

12 Secure the cable to the board to prevent the 
soldered connections from breaking when in use, 

13 Insert the LMSi1 comparitor in its base, You may 
need to (carefully) bend the ping in slightly. When 
viewed from above, the number 1 pin on the LMS! will 
be marked with a dot or the 1-8 end will be 
identified with a U-shaped notch. Jf you need to, 
remove the LNSi1 with a smal] screwdriver, prizing 
each end up a little at a tine, else disaster! 

14 Push the wiring board into the case and replace 
the end cap. You will have to cut the case away to 
clear the switch, and you may have to tris the end 
cap slightly. Make sure the switch operates without 
binding on the case, 

15 Finally, connect the other end of the cord to 
the pins on the ‘D’ connector (put the cover on the 
cord first!), Pin nuabers are marked on the 
connector although you aay need a Ragnifying glass to 
see thes. Point Pi on the diagrars connects to pin 1 
on the ‘D’ connector and so on. 


You can test the pen using the BASIC listing 
given. Diagrams 1 and 2 were done with the pen, but 
with a lot more software. You can get this software 
(written in FORTH of course) through the software 
exchange. If you can't get it to work, ring ae on 
(02)94-S463(AH}. If all else fails, J will fix it 
for $20 plus components, Alternatively {given enough 
interest) I could make assermbled and tested pens 
available to club members for $40, 

As a final note, accuracy can be increased (at 
the expense of sensitivity) by reducing the 100 oha 
resistor to, say, 68 ohas. 


The uninitiated say have problems 
with reading the diagraas. Diagran 1 is supported by 
the circuit diagras in diagram 2.e.9, they both show 
that pin @ of the LMSif is linked to the track 
labelled P7 (pin 7 of the ‘D' connector, track P@ is 
linked to pins 1, 2 & 4 etc.) 


{Editor's Note: 


A NG I a 


1 REM $8RHSaHHRAR SSA MASARERETASASEEHE P10 GRAPHICS 7+16 80 PLOT H,V 
2 REM # LIGHT PEN # 1 20 SETCOLOR 4,0,14:COLOR 3 90 GOTO 30 
3 REM 4 by John Mattes # | 30 H=PEEK(564) sH=H-74 


40 IF HCO OR H>159 THEN GOTO 30 
50 V=PEEK (565) :V=V-17 

60 IF VCO GR Y>95 THEN GOTO 30 
70 IF STICK{O}C>14 THEN GOTO 30 


fe | 


4 REN # Published by Atari Computer # 
S REM # = Enthusiasts (N.S.W.) 4 
6 REM # June 1984 4 
7 REM SORSHRHSEHERSA RARER SASH E TEE 


Cay 
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Since I've taken over as editor I have aade a few blunders with information that I've passed on through the 
pages of Inside Info. While the mistakes are generally fairly minor, I'd like to offer the corrections. You 
should go back through the issues mentioned and mark the corrections in -this will ensure that you don't refer 


back to incorrect information at a later date, 


INSIDE INFO #11 

LINEDITA PROGRAM Page 17 

I found a bug in this prograa after Inside Info 
had been printed. I found that, if during the EDIT 
mode, you had pressed the "CAPS-LOWR" key or ATARI 
(inverse) key the program would not recognize your 
keystrokes when you went to enter a filenase before 
SAVEing to disk -i.e. You would be typing in inverse 


or lower case characters which the program does not ° 
allow. The fix for this is to amend line nuaber © 


32620 as follows:- 
32620 POKE 694,0:POKE 702,64:A=PEEK(Y):1F A=39 OR 
A=40 OR A=Z THEN 32620 


In the event that you also renuabered the progas 


as stated to give LINEDITB.LST you will need to amend 

line nusber 70 as follows:- 

70 POKE 694, 0:POKE 702, 44:A=PEEK(Y) IF A=39 OR Az60 
OR A=Z THEN 70 


INSIDE INFO #12 
RECOMMENDED TERMINAL SOFTWARE Pages 2 % 5 
I wrongly stated that the recomaended terpinal 
software for use with our own A.C.E. Bulletin Board 
was “JTERM", The correct terminal program is 
*AMPLUSS.UDL". This can be downloaded from the BBS 
using MINATERM.NSW when you make a connection. 


MINATERH.NSW PROGRAM Page & 

Whilst the program works as intended, when | 
first used it on the BBS I found it awkward because J 
couldn't see what I was typing on ay screen. Roberto 
gave ne this siaple ‘fix’ which made it auch easier 
to use, You can amend line 200 to read as follows:- 

200 IF PEEK(764)<255 THEN GET #1,C:? CHRS(C) 3: PUT 
#2,C:60T0 190 
TALKING TO FUTURETRONICS Page 17 

I stated in this article that Ataris are now 
sanufactured in Taiwan, Futuretronics has advised us 
that this was incorrect. The new machines are 
manufactured in HONG KONG. 

APX POSTCODE Page 18 

The postcode shown has a typographical error. 
It should be 9505), 

MIDEASTERN SOFTWARE Page 18 

Since the magazine was printed MidEsstern 
Software has changed it’s phone number. The new 
nuaber iss- 





O041-1-B14-446-5117 

SPELLING ERRORS 

Ok, ok, I'm not a yank! Just because I was up 
late, tired, hungry, exhausted and close to death, 
I'll try to make sure J don’t use ‘check’ instead of 
‘cheque’ in future. I'll also use ‘led’ instead of 
‘lead’ and ‘separate’ instead of ‘‘seperate’. All J 
can say is OOPS! 


A.C.E. MOVIE DIRECTOR 


PART 
{or Page flipping, the easy way) 
(Bellevue Hill, N.S.4.) 
NOTE: This article is the first one to reach our editor through the phone line. 


by Roberto Rosano, 


This month 1 would like to unveil a powerful but 
hidden feature of the ATARI. I recently bueped inte 
it while ‘fooling around’ with that sarvellous 
machine, There are many hidden treasures to be found 
only by venturing “off the beaten track" of your 
BASIC textbooks, 

Sore of you perceptive programsers might have 
noticed that adding 32 to a GRAPHICS call inhibits 
the screen clear for that mode, in other words, after 
a program has run, it is still possible to view a 
graphics (or text) screen by calling the sane 
Graphics mode +32, I'll explain this step by step 
and show you how it can be used to advantage. 

We start off with a two liner:- 


10 GR. 24:0, 1:SE.2,0,0:F, 1010317 
STEPS:PL. 160, 96:DR.1,O:DR Ith, 19D: DR. L+2,02Nw 1 
20 6.20 


This gives us a Simple drawing in GRAPHICS 8, 
Just to get a Sieple message and a different GRAPHICS 
aode, type in these two Llines:- 


20 GR.18:P05.8,4: 284: "HELLO THERE® 
30 6.30 


0.K. 30 far so good, 
following lines, 


Now comes the trick, add the 


30 F.1={T03003NI 
40 GR. 24432356, 2,0,0 
50 F. 1=1T03003N. I 
60 GR. 1943226, 30 


Did you ever think page flipping was that easy? 

Again, the lucid hackers will have noticed that 
this technique is not (yet) perfect. NOT YET, } 
said! If we look at the GRAPHICS 24 screen 
carefully, we notice a little “garbage’ at the 
bottoa, That garbage is siaply the Graphics 2 screen 
for whatever mode you eight have chosen for the 
second screen) highly compressed. Of course the 
second screen must be of smaller mesory requirement 
in order to see this effect. 

Let's try to look at this a bit aore 
technically. When you call a GRAPHICS ode, Antic 
puts the screen where it perceives the top of aesory 
to be -e.g. if you call GRAPHICS 24 then 
approximately 8000 bytes (from the top of aenory) 
will be reserved for its display. The TOP left hand 
corner of the screen corresponds to the BOTTON of 
screen memory, So aemory will fill up from low to 
high while the screen fills from top to bottoa (for 
the purists.,.this is only a representation of what 
happens), 


1 






RANTOP (- 


$ 


GRAPHICS 24 


Nenory TV screen 


In this diagram, the asterisks represent the 


dJast byte of screen memory and the dollar ean 


/f 


represent the first byte. 

When, after having called GRAPHICS 24, you oe 
call GRAPHICS 18, ANTIC first looks at the top of 
senory and starts filling the memory below it with 
the Graphics 18 stuff, eating its way through the 
GRAPHICS 24 screen. In this case, the amount lost is 
12x20 or 240 bytes (12 lines x 20 bytes per line}, 

Try changing lines 20 and 60 in the above 
progran for other graphics aodes which use up aore 
aemory, You will see how much sore space they eat 
out of the Graphics 24 display. GRAPHICS 7 should 
use up the bottom half. 

After all this discussion, how do we get rid of 
this unwanted garbage at the bottorn of the screen? 
The solution lies in reserving enough aeaory for each 
screen We want. 

Knowing that ANTIC will start the screen seaory 
where it thinks the top of semory is, all we have to 
do is to POKE location {06 (the top of aemory - 
RANTOP) with different values corresponding to where 
our seperate screens will be. 

In our example, we need 32 pages for SRAPHICS 24 
and 4 pages for GRAPHICS 18 (Remember that the 
display list cannot cross a 1K boundary without a 
JUMP instruction - that's 4 pages'). The miniaua 
requiresent for any screen is 4 pages - or {k. 

NOTE: “Pages” are 256 byte blocks of memory. ik=1024 
bytes (256#4), Hence a 48k system has 192 pages 
(4844), 

Theoretically then, we could have as aany as 32 
screens or "frames" in a 48K systes,.. allowing for 
the meaory used by DOS and the BASIC cartridge and if 
your programs is short encugh. Short indeed it can 
be, as we shall soon see. 

Let's now get a clean GRAPHICS 24 screen! 
in the following lines and RUN the prograa. 


Type 


cay” 


1 REM $9GhS RR a RAPA SARE Tae EES Ea eae a 


10 ARPCER (106) EDELAYS300 

20 GR. 24:0, 435E.2,0,03F, 12070319 
STEPS:PL.0,01DR. I, 1903N] 

30 POKEI06 ,A-32 

40 GR, §8:POS.8,43 786; "HELLO THERE® 
100 60S. DELAY 

110 POKE106,As5R.5635E.2,0,0 

120 605, DELAY 

130 POKE06,A-32:6R. 50 

200 6.100 

300 F.J=1 TO 300:N. T:RET. 


So there you have it, 
screens! 
Let's now get abit more involved and do 4 screens 
all of different GRAPHICS modes and let’s "flip" 
through ther. Add the following lines: 


two perfectly clean 


50 POKE104 ,A36:GR, 19:F. [=0T03192C. 13PL. 20,0:DR. 1,232 
NJ 

60 POKE{06,A-40:6R, 21:F.1=170503C, 13PL. 39,24: DR. RND(O 
)#79,RND (0) #473N. I 

140 BOS, DELAY 

150 POKE104,A~36:6R, 19432 

160 BOS, DELAY 

170 POKE10b,A-40:6R, 21432 


To add a GRAPHICS 23 screen to 
following lines: 


this, add the 


70 POKEI06,A~48:6R, 23: DEG1SE.0,15,120F. 1217090 
STEPSIC. 13PL.80,48: DR, SIN(1) #85 ,COS(1) #40 

75 PL.BO,48:DR. 159-SIN(1) #85, 95-COS(T) #40:N. 1 
180 60S. DELAY 

190 POKE106 ,A-48:6R, 23+32 


Now run the program and note how the pages are 
flipped. You can change the flipping rate by 
altering line 300, 

Finally I have a 7-frame mini wovie for you, 
Type in the program ‘ACE MOVIE DIRECTOR’, RUN it and 
sit back and watch for a few sinutes, 

The program is well structured so you shouldn't 
have any trouble understanding how it works if you 
have followed we so far, 

Next time I'll have a complete utility which 
will allow you to draw.or compose your own screens in 
different GRAPHICS or text aodes, These will then be 
flipped at a speed of your choice to produce a ini 
movie. Till then.... 

Roberto Romano 


rc a a SE TS 


70 GOTO 50 


BO REN REXPEREEESRSEERAESEEE ER EEE 
90 GRAPHICS 23:GOSUB 380;FOR I=0 TO 36 


2 REN 4 ACE MOVIE DIRECTOR # 

3 REN # by ROBERTO ROMANO 4 

4 REM # Published by Atari Coaputer # [0 STEP A 

S REN # Enthusiasts (N.S.W.) # F100 T=1/57,3:COLOR 1 
& REN # June 1984 # 7110 GOTO C430 


7 REM PPRAHRHREEASRTENA EASE AER R AEE 

10 P=PEEK (104) DELAY=3703 TIME=200: Az3; 
$=40 

20 REM SeSEHESEHEEESESESEEE SHEER SE 

30 FOR LOOP=0 TO 6:POKE 104,P-16#LO0P; 
C=4+L00P:GQSUB 90:NEXT LOOP 

AQ REM ERHEEEEEERERESEEREEEER EELS 

30 FGR DISPLAY=0 TO 4:POKE 106,P-DISPL 
AY#16:G0SUB DELAY:GRAPHICS S5:GOSUB 38 
O:NEXT DISPLAY 

60 TIME=TIME-10sIF TIME<1O THEN TINE=! 


0 


140 GOTO 320 


170 GOTO 320 


200 GOTO 320 


230 G0T0 320 





florices 


HEHHE 
A decision has been made on the costs of back 
issues of Inside Info. If the issues are still in 
stack they will cost $2.50 each, If they are no 
longer in stock and need to be photocopied they will 
be $4.00 each. These prices de not include postage. 
Contact the (Club secretary for details on 
availability. 
HHH HE 
Your editor is now on-line. If you would like 
to grate the pages of Inside Info with an article, 
prograa or anything else just ring at a reasonable 
hour. 
HHREE 


120 Y=S#COS (4#SIN(2#T)) #SIN(T) 
130 X=GeC0S(4*SIN(2eT) ) #COS(T) 


150 YeSeSIN(4#SIN(2#T)) #SIN(T) 
160 X=S#SIN(4*SIN(2#T) ) #C0S(T) 


180 Y=SeCOS(SIN(8#T)) #SIN(T) 
190 X=5#COS(SIN(8#T) ) #C0S(T) 


210 Y=S#COS(SIN(16#T)) #SIN(T) 
220 X=S#COS(SIN(16#T)) #C05(T) 


ff 


240 Y=SeSIN(SIN(324T) } ESINIT) 

250 XeS#SIN(SIN(32#7)) #COS(T) 

260 GOTO 320 

270 Y=SeSIN(COS (147) ) #S1N(T) 

280 X=S#SIN(COS(16#T) )#C0S(T) 

290 GOTO 320 

300 Ye8eCOS(4#SIN(4#T)) #SIN(T) 

310 X=SeCOS (44SIN(44T)) #C05(T) 

320 IF 1=0 THEN PLOT 80+X,48~-¥ 

330 DRAWTO 80+x ,48-¥ 

340 NEXT J 

350 RETURN 

30 REN #ERERESESEREHEEESEE SESE SS 

370 FOR I=! TO TIMESNEXT J:RETURN 

380 HUESINT(RND(G) #16) sPOKE 708, (HUEDO 
)# (1O#HUE-8) + (HUE=0) #56 

390 RETURN 





HHH 
We only received one response to the offer of 
bulk purchasing the Cicada modems. This has forced 
us to drop the offer, 
HHH 
No body has expressed any interest in the idea 
of bulk purchasing any products from overseas. 
HHHERE 
No interest has been shown in the idea of 
running special computer courses by the club. 
HEHE 


PROGRAM REVIEW 


MegaFont & Picture Disk 
from XLent Software P.O. Box 5228, Springfield, VA. 22150. USA, 


Reviewed by Chris Fitzgerald, 


In Inside Info #11 (and again in this issue), | 
used several screen duaps to fill in some of the 
spaces. These screen dumps were ‘dumped’ to ay Epson 
printer using a program called MEGAFONT ($US!9,99) 
which was written by Randy Dellinger and Richard 
Rogniie. 

The pictures therselves were from the HegaFont 
Picture Disk #1 {$US10.00) which were composed by 
Mark Whiteside and Jennifer Brabson. J should 
sention that these pictures are copyrighted and have 
been used by peraission -my thanks to the authors. 

MEGAFONT 

MegaFont if a coepiled BASIC prograa which comes 

on an AUTOBOOT disk and can be used on suitable EPSON 


(Graftrax) or PROWRITER/NEC printers. It has 4 
options: - 
i. Convert Atari resident character set. 
Zs LIST files with all ATASCII characters. 
3. Duap GRAPHICS 7+ or 8 screen. 
4. End program. 
1. Convert Character Set 


This option allows you to read a character set 
file which was created using any Character Editor 
such as INSTEDIT, Graphics Master or SuperFont (froa 
Compute!‘s First Book of Atari Graphics), 

The original file of 256 characters is read and 
converted, After about 90 seconds, a new file is 
created and written to disk, ready for you to use. 
Bo any font you can define for use on your Atari can 
be converted for use on your printer, The cover of 
this issue gives some examples. 

2. Special LISTer 

This option accesses any disk-file and allows 
you to print it using any font that you create 
through option |. Two problems that I've had while 
using NegaFont are that:- 

# it doesn't ‘page’ your printout, so you can’t use 
seperate sheets of paper. 

it prints straight across the page without doing 
any formatting, therefore any word-processing files 
will be printed showing all text formatting blocks as 
well as text. 

There are however, 
will "print to disk", 


a few word-processors which 
that is, it will insert al] 


necessary blanks and format the file as it will be 
printed on paper -Text Wizard and the old Atari 
Word-Processor have this capability. 

To print BASIC program listings the program aust 
be LISTed to disk, otherwise MegaFont will print-out 
the ‘tokenized’ BASIC form of the proqra. 


Once 





Ie 


(Clyde, N.S.W.) 


again, the progras doesn’t format the listing for 
you. 

To do this J have written my own formatting 
program which reads a LISTed file, inserts 
appropriate blanks, pages it (as seperate disk-files) 
and then writes it back to disk. I have used this 
option to print-out the MILLIONARE listing in this 
issue because that program contains several special 
characters: 

There are two font sizes available through this 
option, both of which are larger than the usual font 
sizes on the printer, hence any text files or progras 
listings take up aore space than the usual] condensed 
font, 

NOTES: MegaFont does not down-load the character set 
to the printer, but rather, converts the characters 
in memory and ‘dumps’ thea to the printer, 

If you've tried to redefine the character set on 
the Epson FX-80, you'll know that the single-byte 
‘control codes’ can’t be user defined. 

3. Graphics Dumper 

This option allows you to duap a GRAPHICS 7+ or 
GRAPHICS 8 screen to your printer. A program Jisting 
is provided which will read your screen, creating a 
disk-file of 42 sectors, which can then be read 
through this option for duaping to the printer. 

You can print your screen in either, INVERSE or 
NORMAL mode, as a quarter page, half page or full 
page -the full page size being printed side ways on 
the printer, For those who use MicroPainter this 
program is ideal for printing the pictures you 
create, 


MegaFont II 

I have just received word that MegaFont IJ has 
been released, The progras now comes in a binder for 
$US24.95, Version I] has had its docusentation 
updated and expanded and includes two new ready to 
run fonts. Also, it now allows you to:~ 
# type directly to printer using any of your special 
fonts. 

# select the number of line feeds and use single 
sheet paper. 

MegaFont II now includes instructions on how it 
can be used in conjunction with the Koahapad and 
AtariWriter as well as the new XL computers. 

MegaFont Ficture Disk 1 

This disk contains {1 different pictures, many 

of which were created using MicroPainter. 





THE MILLIONAIRE 


by Jamie Athas. (Maroubra, N.S.W,) 


This is another LOTTO NUMBER SELECTOR PROGRAM, 
but with a difference -it talks! The MILLIONAIRE 
makes use of SAM, the Software Automatic Mouth and it 
could make you a millionaire. 

INSTRUCTIONS 
1 Type the prograe EXACTLY as shown then SAVE the 
prograr to cassette or disk. 
2 Turn the computer off then boot the ‘SAK’ 
prograa. If you don’t have SAM then don't worry -the 
program still runs but without any voice. 
3 LOAD "The Millionaire" program and run it. Then 
SAM will start to speak his first words, “I's picking 
ey lotto nuabers." 

The corputer will then draw up one gase of a 
LOTTO coupon and fill it out, showing the selected 
numbers, J SAM is present the nuabers wil} be 
spoken, 

You can then press eithers- 

SPACE BAR for the computer repeat, through speech, 
which numbers were selected, OR 

RETURN to select a new set of nuebers. 


I hope to write a lot aore software using SAN in 
future issues of INSIDE INFO. 

In the event that you do win any money using the 
MILLIONAIRE, I'l] expect a 10% cut of the prize for 
ay troubles, HA,HA,HA. 


TEDITOR’S NOTE: Software Automatic Mouth (SAM) is 
produced by DON’T ASK SOFTWARE. It has a recomsended 
retail price of $59.95 ($US40.17 from MidEastern 
Software) in the States and requires a ainiaue of 14K 
to run] 
Keystroke Instructions 

The following teble shows all the necessary 
keystrokes which are required to get the special 
ATASCIY characters which have been used in Jamie's 
"MILLIGNARE" program. 





ATASCIIT ATASCII Necessary 
Nunber Character Keystrokes 
~ CHRS(173 r CTRL-& 
CHRS (18) - CTRL-R 
CHRS (5) 1 CTRL-E 
CHRS (124) I CTRL-V 
CHRS5 (26) L CTRL-Z 
CHRS (3) J CTRE-C 
CHRS (125) K E5C then SHIFT-CLEAR 
CHRS (168) a INVERSE SPACE 


a A TE LS ES 





1 

zZ 

3 REM by Jamie Athas a 
4 REM & Published by Atari Computer # 
5 REM &@ Enthusiasts (.5..) a 
6 REM & June 1984 % 
7 REM sittininninnominnniiint 





_ 19 SAM=8192:DIM SAMS (1502:G0TO 410 

28 ATINT (RND (6240244 

3O BINT CRND (0) ¥40) +1 

4@ IF a=B THEN 30 

58 CHINT CAND (82 *403 41 

66 IF C=B OR C=f THEN 58 

7@ POINT CRND (0) %40) +4 

0 IF DIC OR D=B OR BoA THEN 78 

90 EXINT CRHD (0)%40) 41 

108 IF E=D OR E=C OR E-B OR E=A THEN 3 
9 

110 FIINT (RNP (O3%40) #1 

120 IF FE OR F=B OR F=C OR F=B OR F=A 

THEN 110 

170 POKE 82,0: DLIPEEK (566) PEEK (561) ¥2 
S6:POKE DL43,78:POKE DL46,6 

140 2 "RH": POKE 718,12:POKE 789, 8:POKE 
712,12:POSITION 8,8:7 “ this weeks [iG 
to NHMBERS ARE™ 

158 POSITION 8,2:? ,“*r—ae-acoe—ar 
=r" 

168 7 "42 942 TS Pla Tis bie g" 
176? OE heed Lead Led Led Leen Leeeed #8 


188? “ers ores ees es" 
198 2? "17 [Je Pio [aet}arifyazie 
200 7 BE aed Leen Ler feed Hameed Seemed #8 
2187 es ees eo ees es" 
220 7 ,“hastjaalfasplasd}a7ijiali 
230 pe bl ed Led Ld Led Ld 


Sree reese" 

s“Proppzeplzipp22pp2apizaie 
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cee ee ee ee 

360 SAMS=",":G05IB 1068+A:GO5SUB 1080+B 
:GOSUB LO0GtC:GOSUB 1HBOtD:GOSUB 1800+ 

E:GOSUB 1088tF:GOTO 4598 

378 POKE 764,255 

380 IF PEEK(764}-12 THEN 416 

398 IF PEEKC7643-33 THEN 458 

486 GOTO 388 

418 GRAPHICS 8:POKE 718,6:PQKE 712,53: 

POKE 752,14 

420 POSITION 3,10:7 “I'm picking Lotto 
numbers!" : 

436 FOR OP=1 TO 280:WEXT OP: SAMS=", AYS 


hy 
on 
io] 
cre Ser MC Mee TS TS Me TC TS TC TC MC TC TC PTC PTC Prey 


Cay 


M PIHAXIHNG MAY LAA4TOW MARAMBERS,": 
=USRCSAMD 

448 GOTO 28 

456 X=U5R(5AM) :GOTO 378 

1681 POSITION 11,3:7 “FRE: SAMS (LEN (50M 
5) +4 <"WAHAN, "2 RETURK 

1082 POSITION 15,3:? “PRE: SAMS (LEN CSAM 
$) +1) ="TUNE, "RETURN 

1083 POSITION 29,357 “REN: SAMS CLERCSAM 
$2 41)="THRIV4, ": RETURN : 

1004 POSITION 23,2:2 “CEP: 50S (LEN (58M 
5) 419 ="FOH4R, "RETURN 

1885 POSITION 27,3:2 “GEE: Sano (LEN (50m 

S$) +4) o"FAY4U, "RETURN 

1006 POSITION 31,3:7 “GEE: 5as$ (LEN (50K 
$) 419="SINAES, "RETURN 

1607 POSITION 11,6:7 “EB: 5and (LEN (SAM 
$341) -"SEHA4UTHN, ": RETURN 

1008 POSITION 15,6:2 “ER: Sand CLEN(SAM 
S}+1="EV4T, ": RETURK 

1089 POSITION 19,6:7 “EB: 505 (LEN(SOH 
S)+1IS"NAY4N, "RETURN 

1810 POSITION 23,6:2 “fG':50M5 (LEN GAM 
S} +I ="TEH4N, Os RETURN 

1H11 POSITION 27,6:7 “TEE: 5aM$ (LEN (CSA 
P+LISVIALEHAVIEN, ": RETURN 

1012 POSITION 31,6:7 “FBP: 5aM$ (LEN (SAM 

5) +2)="'THEHALY, “RETURN 

1843 POSITION 11,9:7 “FEM: 5665 CLENCSAM 

$)+19="THERATIYGN, “s RETURN 

1844 POSITION 15,9:7 “FEI: 5085 (LEN (C54M 

S$) +4) —-"FOHSTIVON, : RETURN 

1015 POSITION 19,9:2 “TB: 5aM5 (LEN GSM 
S241} ="FIMFTIYON, “: RETURN 

1616 POSITION 23,9:2 “SI: Sams (LEN(SAM 

5) 413 -"SIHAKSTIYON, "RETURN 

1017 POSITION 27,9:2 “TR's 5an$ (LENCSAM 

5341) ="SEHQUIANTIYON, "I RETURR 

1813 POSITION 31,9:7 “HE: 50nd (LEN GON 

SV +L IMEVATIYON, “RETURN 

1019 POSITION 21,12:7 “ER}': 5amS (LEN G54 
5241) —"NAYANTIYON, “I RETURN 


1928 POSITION 15,12:7 “REN: 5AMS (LEN (SO 
MS) 41) <"TMEHANTIY, "RETURN 

1821 POSITION 19,12:7 “EEE': 5amS (LEN TSA 
MSO) tLIS"TWEMANTIY WOHAN, : RETURN 

1022 POSITION 23,12:7 “Hea: SAMS (LER (SA 
MSI4L2<°TWEHARTIY THMS,": RETURN 

1023 POSITION 27,12:27 “PR: Sars CLEN(SA 
MSI+LO"TWENANTIY THRIVS, “S RETURN 

1824 POSITION 341,12:7 “PEP SAMS (LENCSA 
MS) +1) <"THEHANTIY FOH4R,*: RETURN 

1825 POSITION 11,15:7 "FE": Sans (LEN(5A 
MS) +4) ="THEHANTIY FAY4V": RETURN 

1026 POSITION 15,1537 “PYj''s SAMS (LEN (5A 
MOD +L) =" THEHARTIY STH4KS, "RETURN 

1627 POSITION 19,15:7 UPR: SAMS (LEN (SA 
NO) +1} ="THEHANTIY SEH4UIEN, ": RETURN 
1028 POSITION 23,15:7 “PR: SAMS (LEN (SA 
MS341)="THENANTIY EY4T,“: RETURN 

1829 POSITION 27,15:7 “REP: SAMS LER CSA 
MSJ+L) <"THEHANTIY MAY4N,": RETURN 

1030 POSITION 31,15:7 “RU SAMS CLENISA 
M5241) ="THERATIY, “: RETURN 

1031 POSITION 11,18:7 “REP: SAMS (LEN (SA 
MO)+1)="THERATIY HAHAN, ": RETURN 

1032 POSITION 15,18:7 “REI: SONS (LEN(5A 
MS} +1) ="THER4TIY TUW4, “RETURN 

LOTT POSITION 29,1857 “RES SAMS (LEN CSA 
MS) +12 ="THERATIY THRIY4, “: RETURN 

1034 POSITION 23,18:7 “REN: SAMS (LENGSA 
MS} +1} ="THERATIY FOHAR, ": RETURN 

1835 POSITION 27,18:7 “EEF: SAMS (LEN ISA 
MOD ="THERATIY FAYSY, "1 RETURN 

1036 POSITION 31,18:7 “RE": 5An$ (LEN GSA 
MSItLIS"THERATIY STHAKS “RETURN 

1037 POSITION 41,2427 "REP" 3 50M5 (LENCO 
MS3+22<"THERATIY SEMAVIXN, "RETURN 
1038 POSITION 15,21:7 “REP: SAMS (LEN (58 
M3242) <"THERATIY EY4T,": RETURN 

1039 POSITION 19,21:7 “REP': SAMS (LEN(S5A 
MO]+LI=“THERATIY NAY4H, "RETURN 

1040 POSITION 23,21:7 "EG}': Sans (LEN GSA 
MS) 41) ="FOHARTIY, “RETURN 


florices 


HRRKREE 
It's time for you to cast your vote for the 
article you feel was the best out of all the articles 
printed in Inside Info issues 7 to {2 (inclusive), 
The winner will receive $100 prizemoney to spend on 
whatever they like. Voting will take place at the 
Club meeting to be held on 2nd of July. If you can’t 
get there mail your vote in time to be counted!!! 
PLEASE NOTE: The article needn't necessarily contain 
a program listing, 
HHHRH 
At the present time cur club is about $3,700.00 
in the black, The Committee feels that it would be 
wise to earn some interest on about $2000 of this 
money by putting it into an interest bearing account. 
This money may be needed for unforeseen expenses 
“e.g. if an unthinking meaber were to steal sosething 
from cur OTC meeting place we'd get kicked out. We 
would then need to find a meeting place we'd have to 
pay for, and that could be very expensive’ Hopefully 
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The rest of the money would 
cheque account to cover 
Let us know 


it‘l] never happen. 
remain in the present 
operating expenses and club purchases. 
your feelings on this. 

HEHEHE 

The introduction of DOS 3 has caused a few 
probleas, Some of ay utilities for programming are 
DOS 2 and can’t be converted for DOS 3, Until 
further notice, anything you send to the club on disk 
should be in DOS 2 format. While DOS 2 files can be 
converted to DOS 3, it is awkward to convert the 
other way, 

While on the subject of DOS 3, I mentioned last 
issue that Futuretronics would send you a copy of DOS 
3 if you asked them for it, They later advised:that 
you need to send them a blank disk first. I should 
also nention that you won't receive either of the two 
aanuals which normally come with DOS 3! (real handy 
for beginners}. 

HHH 


OISKussion 


(Winston Hills, N.S.W.) 


by Ken Scalley. 


This month I ag going to digress a bit and talk 
about a menu program instead of disk layout,etc. 

A few weeks ago, a member of our user group who 
lives near we, Bob Penney, brought a seenu program 
around to show ae -he had punched it in frow the 
September, 1983 issue of Antic and we both agreed 
that it could do with a few enhancements. 

It was the usual kind of menu progranm..you put 
it on your disks as an AUTORUN.SYS file so that when 
you boot your disk, the menu program displays all (or 
some) of the binary files on the disk. You can then 
load a program with just one keystroke, 

With any AUTORUN.SYS file on your disk, you 
don't need to have the DUP.SYS file present -it is 
just a waste of precious disk space, This was 
sentioned the other month by our editor (see Odds and 
Sods, page 19 -Inside Info #11). He said that the 
only way to get DOS.SYS on a disk by itself, without 
DUP.SYS, was to use option "H" (write NGS files) in 
the DOS menu and to then delete DUP.SYS, using option 
"D", I thought this was right, and that it was silly 
that you couldn't write DOS.SYS on its own -I figured 
that there had to be an easier way. Well, proving 
the law of Atari coaputers (you know, there is aore 
not discovered than is already known) I read in ay 
Eugene ACE newsletter that the following will do what 
is required: - 

Type in, in immediate wode (no line numbers), 

END: OPEN #1,8,0,"D: DOS, SYS": END 
and this will write DOS.SYS onto any formatted disk! 
Getting back to the menu progras.,..as it stood, it 
suffered from several] probleas:- 
1). You couldn’t re-run the 
re-booting the disk. 
2) 
cause the infamous Atari “syster lock-up", 
3) We didn’t like the colours used 
matter ,adaittedly). 

So, having started to play around with assembler 
recently (and in the process of growing an extra 4 
fingers to learn hex (maybe that’s what our 
two-fingered editor needs??) I decided to change the 
program and overcome the above inadequacies. The 
resulting program has these features:- 

{) Pressing START or SYSTEM RESET will 
program without re-booting. 


program without 


(a personal 


re-run the 


2) It will Joad all of the binary files that I could 
LISTING 1 
1 REM MhRMaRHTEHaSNRROSSRAHATRAAETHD 30 POKE 764,255 
2 REN 4 AUTOMENY # 
3 REM 4 by Ken Scalley 4 


4 REM # Published by Atari Computer 4 

S REM # = Enthusiasts (N,S.W.) | 

& REM @ dune 1984 i 

7 OREM SO esaS000 HERE 

10 ? "INSERT DISK,PUSH RETURN": POKE: 74 
4,255 

20 IF PEEK(764)=255 THEN 20 


60 


80 CLOSE #1 


It wouldn't load some binary load files and would 


40 OPEN €1,8,0,"D:AUTORUN, SYS" 

SQ PUT #1,255:PUT #1,255:PUT $1, 0sPUT 
#1,56:PUT $1,144:PUT #1,59 

60 READ BsIF B¢>-1 THEN PUT #1,B:GOTO 


70 PUT 41,224:PUT #1,2:PUT #1,225:PUT 
#1,2:PUT #1,0:PUT #1,56 


90 DATA 173,255,54,201 0,240 


[5 


find to try, 
3) It now uses the colours that I like. 
LISTING 1 

RUNning the prograk given in listing 1 (below) 
will write the appropriate AUTORUN,SYS file to your 
disk, Please note; this is a “no frills” 
prograa...if you already have an AUTORUN.SYS file on 
the disk (and it is not locked), it will be 
overwritten without any warning! -If the file is 
locked, the program will crash, 

Having written this program, I then had to put 
it onto all of ay disks of binary Joad files. Using 
DOS, this entailed checking if there was a locked 
file already there, unlocking it, loading the file 
into memory, and writing to disk (for each disk)...s0 
I decided to write a little program to do this sore 
easily. . 

LISTING 2 

Listing 2 will read any file once, and allow you 
to write it to as many disks as you want; provided 
the file will fit into the prograas buffer, On each 
occasion, it will give you the opportunity to write 
with or without verify, as well as the choice of 
whether or not you want to lock the file after 
writing it. It also checks for an existing file on 
the destination disk and asks you if you want to 
overwrite it. If you want to write DOQS.S¥S the file 
does not need to load, rather, it will be written in 
the manner described above, It is not possible to 
overwrite an existing DOS.SYS file, though you can 
lock. it with this progran, 


Well, that's it for another aonth, While 1 an 
enjoying writing this coluan, I find it hard without 
any feedback from readers....does anyone read this 
column??? 
eveas 08 you love it?? 
seoreedD yOu hate it??? 

». Ould you like a discussion on some specific disk 
problem???? 


{Editor's Note: You can write to Ken through the 
editor C/- the club address, Please show hia your 
support and interest -as I've already stated, we 
can't cater for your needs if we don’t know what you 
want!) 


EY 


100 DATA 3,32,64,21, 1691 
110 DATA 141,255,54,169,0,133 
120 DATA 12,169,56,133, 13,169 
130 DATA 1,133,9,169,0,141 

140 DATA 68,2,169,0,133,203 

150 DATA 169,55, 133,204, 133,206 
160 DATA 32, 163,58, 169,0, 141 
170 DATA 198,2,238,240,2,160 
180 DATA 0,132,86, 132,207,152 
190 DATA 200,132,84,200, 145,88 


Cay 


200 DATA 169,6,133,85, 133,82 


210 DATA £69,31,133,83,162,95 - 


220 DATA 169,9,157,66,3, 169 
230 DATA 204,157,68,3, 169,58 
240 DATA 157,69,3,169,79, 157 
250 DATA 72,3,32,86,228, 169 
260 DATA 2,133,82,169,39, 133 
270 DATA 83, 169,20, 133,84, 169 
280 DATA 8,133,85,162,96, 169 
290 DATA 27,157,68,3,169,59 
300 DATA 157,69,3,169,23, 157 
310 DATA 72,3,32,84,228, 169 
320 DATA 21,133,B4,169,9,133 
330 DATA 85,169,50,157,68,3 
340 DATA 169,59, 157,69, 3, 169 
350 DATA 20,157,72,3,32,86 

360 DATA 228, 162,16,169,3,157 
370 DATA 66,3, 169,123,157, 68 
380 DATA 3,169,59,157,69,3 

390 DATA 169,6,157,74,3, 169 
400 DATA 0,157,75,3,32,86 

410 DATA 228,162,16,169,7,157 
420 DATA 66,3,169,238, 157,48 
430 DATA 3,169,95,157,49,3 

440 DATA 169,18, 157,72,3,169 
450 DATA 0,157,73,3,32,86 

4o0 DATA 228,48, 46,160, 10,162 
470 DATA 1,195, 238,55, 221,138 
480 DATA 59,208,212,232,200,192 
490 DATA 13,208,242, 160,0,162 
500 DATA 2,189, 238,55, 145, 203 
510 DATA 232,200, 192,8, 208,285 
520 DATA 230,207,165,207, 201 ,26 
530 DATA 240,5,32,194,58,208 
540 DATA 178,162, 16,169,12, 157 
550 DATA 4,3,32,86,228, 165 
540 DATA 207,208,3, 74, 120,58 
570 DATA 149,6,133,84, 169, 

580 DATA 133,225, 169,0, 133,203 
590 DATA 169,32, 160,0, 153,208 
600 DATA 55,200,192,30, 208, 248 
610 DATA 19,5, 133,85, 165,207 
620 DATA 41,1,133,226, 165,207 
630 DATA 74,24, 101,226, 133,224 
640 DATA 165,225,24,105, 192,143 
650 DATA 208,55, 169,174, 141,209 
860 DATA 55,160,0,162,3,177 

870 DATA 203,157,208,55, 200,232 


680 DATA 192,8,208, 245,145,226 
490 DATA 240,6,166, 224,228,225 
700 DATA 240,43,173, 208,55, 24 
710 DATA 101,224,141,227,55, 169 
720 DATA 174, 141,228,55,180,0 
730 DATA 162,22, 165,204, 133,208 
TAO DATA 165,224,10,10,10,24 
750 DATA 101,203,133,205,177,205 
FeO DATA 157,208,55,200,232,192 
770 DATA 8,208,245, 162,95, 169 
780 DATA 9,157,66,3, 169,208 

790 DATA 157,68,3,169,55, 157 
B00 DATA &9,3,169,30, 157,72 

B10 DATA 3,32,84,228,32, 194 

820 DATA 58,230,225, 165,225,197 
930 DATA 224,176,3,76,44,57 

B40 DATA 208,3,76,44,57, 169 

B50 DATA 255,141,252,2,173, 252 
860 DATA 2,201,255, 208, 10,173 
870 DATA 31,208,201 ,6,208, 242 
980 DATA 76,15,56,160,0,185 

890 DATA 97,59,205,252,2, 246 
900 DATA 33,200,196,207,208, 243 
910 DATA 169,253,32, 164,246,169 
920 DATA 245,141,198,2,169,0 
930 DATA 133,20,165,20,201,21 
940 DATA 208,250,169,0, 141,198 
950 DATA 2,76,199,57,162,0 

960 DATA 142,198,2,152, 152,10 
970 DATA 10,10, 133,203,160, 0 
980 DATA 162,2,177,203,201 ,32 
990 DATA 240,9,157, 128,59, 200 
1000 DATA 232,192,8,208, 241,160 
1010 DATA 0,185, 138,59, 157,128 
1020 DATA 59,200,232,192, 14,208 
1030 DATA 244,162,96, 169,12, 157 
1040 DATA 66,3,32,66,228, 32 
1050 DATA 163,58, 162,14, 169,3 
1080 DATA 157,66,3,169, 128,157 
1070 DATA 68,3,169,59, 157,49 
1080 DATA 3,169,0,157,73,3 

1090 DATA 169,4,157,74,3,32 
1100 DATA 86,228,169, 255,141,252 
1110 DATA 2,169,47,141,224,2 
1120 DATA 169, 16,141,225, 2,149 
1130 DATA 0,133,84, 133,85, 76 
1140 DATA 200,21, 169,12, 133,84 
1150 DATA 169,7,133,85, 162,96 


1160 DATA 169,9,157,66,3, 149 
1170 DATA 70,157,68,3,169,59 
1180 DATA 157,69,3, 169,27, 157 
1190 DATA 72,3,32,84,228,173 
1200 DATA 31,208,201 6,208,249 
1210 DATA 76,15,56, 162,96, 169 
1220 DATA 3,157,663, 169, 202 
1230 DATA 157,68,3,169,58, 157 
1240 DATA 69,3,169, 12, 157,74 
1250 DATA 3,169,0,157,75,3 
1260 DATA 32,86,228,96, 24,165 
1270 DATA 203,105,8, 133,203, 95 
1280 DATA @3,58,125,14,14,14 
1290 DATA 14,14,14,14,14,14 
1300 DATA 14,14,14,14,14,14 
1310 DATA 14,14,14,14, 14,14 
1320 DATA 14,14,14,14,14,22 
1330 DATA 66,73,78,65,82,89 
1340 DATA 32, 76,79, 65,68, 32 
1350 DATA 77,69,78,85,32,80 
1340 DATA 82,79,71,82,65, 77 
1370 DATA 2,13, 13,13, 13,13 
1380 DATA 13,13,13,13,13,13 
1390 DATA 13,13,13,13, 13,13 
1400 DATA 13,13,13,13,13,13 
1410 DATA 13,13,13, 112,117,115 
1420 DATA 104,32,107, 101, 121,32 
1430 DATA 116,111,32,108, 111,97 
1440 DATA 100,32,97,32,103,97 
1450 DATA 109,101,112, 117,115, 104 
1460 DATA 32,83,04,65,82,84 
1470 DATA 32,116,111, 32,114, 10! 
1480 DATA 45,114,117,110, 78,79 
1490 DATA 32,34,79,66, 74,34 
1500 DATA 32,70,73,76,69,83 
1510 DATA 32,79, 78,32,84,72 
1520 DATA 73,83,32,68,73,83 
1530 DATA 75,63,21,18,58,42 
1540 DATA 56,61,57,13,1,5 

1550 DATA 0,37,35,8,10,47 

1560 DATA 40,62,45,11,16,46 
1570 DATA 22,43,23,68,58,42 
1580 DATA 46,42,68,58,32,32 
1590 DATA 32,32,32,32,32,32 
1600 DATA 46,79,66,74,0,0 

1610 DATA 0 

1620 DATA I 


eee 


LISTING 2 
| REM GHARPHEAHAAAHRAMEAEHHAEHBAEHEE [40 POKE 752,{:POSITION 14,522 "verify | 2,212,189,72,3,133, 203,189, 73,3, 133,20 
2 REM 4 MULTICOPY # |ontsPOSITION 12,1412 “setting up... "3D } 4,96 
3 REM 4 by Ken Scalley # [IM FILEINS(14) LOCKS (3) BS (38) 100 DATA 169,255,133, 240, 169,255, 133,2 


4 REM # Published by Atari Computer # [50 B$=" ":BS(38)=" "1BS(2)=BS:SPACESFR | 41 ,162,0,160,0,177, 240,133,255, 160,2,1 
S REM # = Enthusiasts (N.S.W.) # [£(0)-2000:DIN BUFFERS (SPACE) 1 0FF=40000 f 77,240, 133,253,133, 251,200,177 
6 REM 4 June 1984 # | rLOCK$=“OFF* 110 DATA 240,133,254, 133,252,200, 177,2 
7 REM M9RPSHHESARHESRAEHHSSAERSSHHED [60 POKE 1913,87:POSITION 8,71? “lock a 140, 133,249,200, 177,240,133, 250,169,6,1 
10 GRAPHICS OsPOKE PEEK(S60)+254#PEEK( | fter writing "}LOCK$ 01,240, 144,2,230,241, 133,240,160 
561)+9,64:POKE PEEK(560) #256#PEEK (561) | 70 RESTORE sFOR J#1700 TO 1754:READ Xs J 120 DATA 0,177,240,145, 253,200, 208, 249 
#23, 64:POKE 710,0:POKE 712,80 POKE J,K:NEXT J »230, 254 , 230,241,198, 255,208,241, 108,2 
20?" DOS MULTI-COPY UTILITY":? | 80 DATA 32,68,218,104,201,4,208,43,104 9 51,0, 234 
° version 1 DOS 2.0%:2 27" $,104,10,10,10,10,170, 104, 104,157,663, J 130 REM FILEWANE TQ LOAD FROM 

Written by Ken Scalley” 104, 157,69,3,104,157,68,3, 104,157 140 POSITION 2,142? B$:POSITION 2,10:? 
30 REN SET UP 90 DATA 73,3,104,157,72,3,32,86,228,13 } BS:GOSUB G10:POSITION 2,18:? “insert 


lh a 


source disk® 

150 ? "name of file to copy’; CHR#(253) 
STRAP {40sPOSITION 22,19: INPUT FILEINS 
tTRAP OFF 

160 IF FILEINS="" THEN 150 

170 FOR J=1 10 LEN(FILEINS) 3 IF FILEINS 
(J,3)2"7" OR FILEINS(J,J)="#" THEN POP 
+60T0 140 

180 IF LEN(FILEINS)<3 THEN 200 

190 IF FILEINS(1,2)="Ds" THEN 210 

200 FOR J=LEN(FILEINS) TO 1 STEP -i:F3 
LEINS (042, 0+2)=FILEINS(S J) NEXT JsFIL 
EIN#(1,2)="Ds" 

210 POSITION 7,105? “filenage- ";FILEI 
NS;B$:1F FILEINS="D:D0S,SVS" THEN FLAG 
21;60T0 290 

220 TRAP {40sCLOSE #1:0PEN #1,4,0,FILE 
INS: TRAP OFF 

230 REM LOAD FILE INTO BUFFER 

240 POSITION 2,143? " loading dat 
a from file... “:GOSUB b10sX=USR(1700,! 
,7 ADR (BUFFERS) , SPACE) 

250 POSITION 2,14:7 BSsIF X=1 THEN POS 
ITION 2,14:7? " insufficient neaory t 
o load file";CHR$(253)sEND 

260 IF X¢>136 THEN POSITION 2,143? " 
error loading data frow file\"sX3")"; 
CHR$ (253) sEND 

270 SPACE=PEEK (203) +256#PEEK (204) 

280 REM _GET DESTINATION DISK JK DRIVE 
290 GOSUB 6103? “insert destination di 
sk, press RETURN" ;CHRE(253):? 3? "STAR 

JT -RUN" 

300 7 "OPTION-toggle verify’:? “SELECT 






@Oi9a3 JBB 


~toggle Jock’:FOKE 764,255 

310 REM VERIFY? & LOCK? 

320 IF PEEK(764)=12 THEN 420 

330 IF PEEK(53279)=3 THEN 370 

340 IF PEEK(53279)=5 THEN 390 

350 IF PEEK(S3279)=4 THEN RUN 

360 GOTO 320 

370 IF PEEK(1913)=80 THEN POKE 1913,87 
sPOSITION 21,5:? “on "sFOR J=i TO 30:N 
EXT J:60TO 320 

380 IF PEEK(1913)=87 THEN POKE 1913,80 
HPOSITION 21,537 “off*:FOR J=1 TO 30:N 
EXT J:60TO 320 

390 IF LOCK$="QFF" THEN LOCKS=“O# “:PO 
SITION 27,787 LOCKS:FOR J=1 TO 30:NEXT 
d:80T0 320 

400 IF LOCK$=*0# “ THEN LOCKS="OFF°:PO 
SITION 27,737 LOCKS:FOR J=1 TO 30:NEXT 
J:G0TO 320 

410 REM CHECK DISKFILE 

420 TRAP 630:CLOSE #1:0PEN #1,4,0,FILE 
INS:CLOSE #1:POSITION 2,14:7 * fi 
le already exists! 7 
430 IF FLAG THEN 580 

440 GOSUB 610:7 3? * 

E? {¥/N)":POKE 764,255 
450 IF PEEK(764)=35 THEN POSITION 2,14 
:? BS:G0T0 296 

460 IF PEEK(764)=43 THEN 490 
470 GOT0 450 

480 REM OPEN FILE 

490 POSITION 2,14:? * 

Id file... ";B$ 

500 IF FLAS THEN POSITION 2,143? “ 


REPLACE FIL 


deleting o 





BOOK REVIEW 


6502 ASSEMBLY LANGUAGE PROGRAMMING 


BY LANCE A, LEVENTHAL 
(PUBLISHED BY OSBORNE/MCGRAW HILL) 


writing data to file... 
S10 TRAP A30;CLOSE #1:OPEN #1,8,0,FILE 
INS: TRAP OFF 
520 REN WRITE TO FILE 
530 IF FLAG THEN CLOSE #1:60TD 580 
540 POSITION 2,143? * writing dat 
ato file...  "sX=USR(1700,1, 11, ADR(B 
UFFER$) , SPACE) 
950 CLOSE #i:POSITION 2,14:? B$:G05UB 
610 
560 IF X¢>L THEN POSITION 2,143? * 

error writing to Tile("3X3")"sCHR$(2 
53):60T0 290 
570 REN LOCK FILE 
580 IF LOCKS="OH " THEN POSITION 2,14: 
2° locking file... "sB$:X10 35 
y41,0,0,FILEINS 
390 REM WRITTERS 
600 POSITION 2,144? ° 
tten"sB$:G0T0 280 
410 POSITION 2,172? B$;B$:B$:B$; B$: POS 
TTION 2, 47sRETURN 
620 REM ERROR OPENING FILE 
630 CLOSE 41:G0SUR 610:1F PEEK(195)=17 
0 THEN 500 
640 IF PEEK(195)=167 THEN 670 
650 POSITION 2,14:? ° error open 
ing file ("PEEK (195) 5") "sCHR$ (253): 607 
0 290 
660 REM UNLOCK FILE 
670 POSITION 2,143? * unlocking 
old file... “STRAP 490:XI0 34,41 ,0 
sO, FILEINS: 6070 490 


file wri 








er 


aa 







we 


Reviewed by Ken Shiu. 


After being very disappointed with "Programming 
the 6502" {refer review in Inside Info #12 page {4), 
I turned to Lance Leventhal’s, 6502 Asseably Language 
Programaing which is one of the books recommended in 
the Atari Users Manual. This book is excellent, 600 
pages chock full of information, tables and diagrams 
“suitable for anyone from beginner to expert. An 
advantage to the beginner would be that the book is 
easy to understand, although the beginner will have 
some difficulty understanding the text devoted to the 
advanced readers, 

The beginning of the book introduces the reader 
to the world of the 6502 -asseablers, the 
instruction set, siaple programs, character codes 
{e.g. ASCII, Hex.), arithmetic operands, etc, 

In catering for the intermediate and advanced 
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(Lugarno, N.S.W.) 


detailed study 


into 6502, 


reader it gives a 
Input/Output and interfacing, interupts, progran 
design and debugging techniques. Leventhal has also 
included two sample hardware projects -a Digital 
stopwatch and theraoneter. 

An excellent feature of this book is that the 
important points and concepts are printed in boldface 
with the lighter type elaborating on the boldface. 

Every exarple is set out in a clear and concise 
manner, fn aia, sample probleas, flowchart, source 
prograa, subroutine documentation, object program and 
a very detailed line by line explanation are given to 
complenent every example. Very Neat. 

In general, I found this to be an excellent 
book. & definite must for any asseabler programner. 
I highly recommend it! 


SOFTWARE EXCHANGE PROGRAMS 


froma Brian Sissons (Software Exchange) 
Many people have been requesting a list of the software which is available through the Software Exchange 
-here it is! Disks cost $10 each and Tapes cost $8 each with instructions supplied. 
PLEASE NOTE:- Not all of these progrags are available on tape. 


ACE NSW Disk/Tape #1 
UTILITIES #1 

MASSACRE Allows you to selectively delete 
aultiple files from a diskette, even if they're 
locked, Ideal for ‘cleaning up’ those old disks. 
MEMTEST A machine language program used to test 
your ATARI's Random Access Memory, 
NUM, OBJ Provides the BASIC user with automatic 
line number generation, 
MICROASH. BO! This is an assembler which cani- 

1) Input and asserble source code. 

2) Save object code on tape. 

3) Load object code from tape. 

4) Execute the object prograe {USR), 

5} Call the object program and pass & paraneter, 

6) Disassemble an object program to the screen. 
ASM (SYMBOLIC ASSEMBLER) This assembler is 
written in BASIC, is disk oriented and supports 
syabols and labels. 
PRINTNOP This is the assembler source code for a 
parallel printer river which utilizes the ATARI's 
joystick ports (Nos. 3 & 4), 














ACE NSW Disk/Tape #2 
GAMES #1 


ARTILLER. BAS A gare for 2 people. The object is 
to blow up your opponent by firing an artillery shell 
while judging the angle of your gun and the aaount of 
gun powder required. 

BLACKJACK Card gase played against the coaputer. 
BOING The object of this game is to bounce ona 
trampoline for the greatest number of tines without 
falling off. 

APPLE CIDER You aust protect your apples fron 
being squashed by the invading alien ship, 

DOGGIES A gave of logic. You have to arrange in 
correct order, six little doggies in the least nusber 
of moves, 





BOBLIN Like PACMAN (ta) but there’s only one 
ghost. 

CLEWSO You assume the role of the famous 
inspector Closeau to solve 2 murder case involving 
five suspects, 


HANGMAN The traditional spelling gase of ‘guess 
the word’, 
CHICKEN Make the chicken cross the busy Highway 


without getting run over! 

LINES An addictive two player game in which you 
to try to get your opponent to run into your line, 
the border or hinself, 


ACE NSW Disk #5 


"ATARI figFORTH 1.4S" 
The language "FORTH", available only on disk. 


ACE NSW Disk/Tape #4 
"INSIDE INFO VOLUME ONE” 


Ready to run programs that featured in issues | 
to 6 of Inside Info, 


ACE NSW Disk/Tape #5 
"INSIDE INFO VOLUME TWO" 


Ready to run prograss as featured in issues 7 to 
10 of Inside Info. This disk also contains the 
cartoons (by Allan R. Sayth) which were printed in 
Inside Info #12 (April 1984), 


ACE NSW Disk #6 
XL TRANSLATOR DISK 
Several popular programs won't run on the new XL 
machine. This disk has two operating systems (one 
per side) which will allow you to run virtually any 
existing software. 


“COMPUTE! ’ PROGRAM EXCHANGE 
teeee# (Refer to page 7) #ettet 
LIBRARY CONTENTS: 


NANE DESCRIPTION ISSUE NAME DESCRIPTION ISSUE NAME DESCRIPTION ISSUE 
MEMDUMP SELF EXPLAINS MAR ‘BI TAG GAME OCT ‘82 WEDGE SCREEN PRINTER MAY '83 
INVADERS GAME APR ‘Bi METSTORN GAME OCT ‘82 RESETRUN RELOCATE PRGN. JUN ‘83 
BLOCKADE GAME AUG 'B! SUPCHASE GAME OCT ‘82 SORT USR UTILITY ROUT. OCT ‘83 
PONG GAME SEP ‘81 LASERGUN GAME NOV '82 ANTAROBI GAME OCT *83 

_ ISLNDJMP GANE DEC ‘Bi UXB GAME NOV ‘82 DETECT. | STR$ SEARCH NOV ‘83 
CONCENTR GANE MAR ‘82 HIDMAZE © GAME DEC *82 POLYCOPY COPY PROGRAM NOV ‘83 
SHODTSTR GANE APR ‘82 THUNBIRD GAME JAN ‘83 STOCKMKT BUSINESS/FIN. NOV ‘83 
SPACEFRT GANE APR *82 AUTONATE AUTOLOAD PERM. JAN ‘83 NITFLYER GAME DEC ‘83 
INCOMEPR BUSINESS/FIN. JUN ‘82 JUGGLER  GANE JAN ‘83 CHARTER GRAPH PREM, DEC ‘83 
QUTPOST © GAME JUN ‘82 COPYCAT GAME FEB ‘83 ALK USR LOAD PREM, DEC ‘83 
MAZERACE GAME JUL 82 HORSERAC GANE FEB ‘83 MOZART = - MUSIC PGRH. JAN ‘84 
MICRODOS MINIDOS JUL *82 SKI BAKE FEB ‘83 COLORBOT GAME JAN '84 
GOLDRUSH GAME JUL °B2 SCRIPTOR WORD PROCESSOR APR ‘83 


LASERBAR GAME OCT *82 


VIDEO 80 80 COLUMN 


APR '83 


